home *** CD-ROM | disk | FTP | other *** search
/ FishMarket 1.0 / FishMarket v1.0.iso / fishies / 501-525 / disk_521 / checkprt / test < prev    next >
Text File  |  1992-05-06  |  376b  |  20 lines
  1. failat 20   ; CheckPrt returns 10 if printer is not selected or off and
  2.             ; 5 if it is busy
  3. CheckPrt
  4. IF ERROR
  5.     echo " Sorry, but your printer seems to be off or not selected"
  6.     echo " "
  7.     SKIP END
  8. ENDIF
  9.  
  10. CheckPrt
  11.  
  12. IF WARN
  13.     echo " Wait a little moment, your printer is busy "
  14. ELSE
  15.     echo " OK, your printer seems to be available"
  16. ENDIF
  17.  
  18. LAB END
  19. FAILAT 10
  20.